home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
forlib1.arc
/
TAD.FOR
< prev
next >
Wrap
Text File
|
1986-01-13
|
1KB
|
38 lines
$PAGE
C** **********************************************************
C** **********************************************************
C** TAD - DATE TIME SUBROUTINE
C** Interfaces with PCDATE and PCTIME
C**
C** John R. Petrocelli 01/13/86
C** 3890 Carman Rd.
C** Schenectady, N.Y. 12303
C** **********************************************************
C** **********************************************************
$DEBUG
$LARGE
SUBROUTINE TAD(MO1,MO2,DA1,DA2,YEAR,YR1,YR2,
* HR1,HR2,MIN1,MIN2,SEC1,SEC2)
INTEGER*2 MONTH,DAY,YEAR,HOUR,MINUTE,SECS,MSECS
INTEGER*2 MO1,MO2,DA1,DA2,YR,YR1,YR2
INTEGER*2 HR1,HR2,MIN1,MIN2,SEC1,SEC2
CALL PCDATE(YEAR,MONTH,DAY)
CALL PCTIME(HOUR,MINUTE,SECS,MSECS)
YR=YEAR-1900
IF (YR .GE. 100) YR=YR-100
YR1=YR/10
YR2=YR-YR1*10
MO1=MONTH/10
MO2=MONTH-MO1*10
DA1=DAY/10
DA2=DAY-DA1*10
HR1=HOUR/10
HR2=HOUR-HR1*10
MIN1=MINUTE/10
MIN2=MINUTE-MIN1*10
SEC1=SECS/10
SEC2=SECS-SEC1*10
RETURN
END
C** -----------------------------------------------------